inherited fmPodotch: TfmPodotch
  Left = 354
  Top = 288
  Width = 710
  Height = 338
  Caption = #1055#1086#1076#1086#1090#1095#1077#1090#1099
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  inherited sbBottom: TStatusBar
    Top = 277
    Width = 702
  end
  inherited Panel1: TPanel
    Width = 702
    Visible = False
    inherited BitBtn1: TBitBtn
      Left = 532
    end
    inherited BitBtn2: TBitBtn
      Left = 620
    end
  end
  object dbgClients: TcxGrid [2]
    Left = 0
    Top = 74
    Width = 702
    Height = 203
    Align = alClient
    TabOrder = 2
    LookAndFeel.Kind = lfStandard
    object tvPodotch: TcxGridDBTableView
      NavigatorButtons.ConfirmDelete = False
      NavigatorButtons.First.Visible = True
      NavigatorButtons.PriorPage.Visible = True
      NavigatorButtons.Prior.Visible = True
      NavigatorButtons.Next.Visible = True
      NavigatorButtons.NextPage.Visible = True
      NavigatorButtons.Last.Visible = True
      NavigatorButtons.Insert.Visible = False
      NavigatorButtons.Append.Visible = False
      NavigatorButtons.Delete.Visible = False
      NavigatorButtons.Edit.Visible = False
      NavigatorButtons.Post.Visible = False
      NavigatorButtons.Cancel.Visible = False
      NavigatorButtons.Refresh.Visible = False
      NavigatorButtons.SaveBookmark.Visible = False
      NavigatorButtons.GotoBookmark.Visible = False
      NavigatorButtons.Filter.Visible = False
      DataController.DataSource = dlgDS
      DataController.Summary.DefaultGroupSummaryItems = <
        item
          Format = '#,##'
          Kind = skSum
          FieldName = 'RPSUMMA'
          Column = tvPodotchRPSUMMA
          DisplayText = #1054#1073#1097'. '#1089#1091#1084#1084#1072
        end>
      DataController.Summary.FooterSummaryItems = <
        item
          Format = '#,###'
          Kind = skSum
          FieldName = 'RPSUMMA'
          Column = tvPodotchRPSUMMA
          DisplayText = #1054#1073#1097'. '#1089#1091#1084#1084#1072
        end>
      DataController.Summary.SummaryGroups = <>
      DataController.Summary.Options = [soNullIgnore]
      FilterRow.InfoText = #1065#1077#1083#1082#1085#1080#1090#1077' '#1079#1076#1077#1089#1100' '#1076#1083#1103' '#1089#1086#1079#1076#1072#1085#1080#1103' '#1092#1080#1083#1100#1090#1088#1072
      NewItemRow.InfoText = #1065#1105#1083#1082#1085#1080#1090#1077' '#1079#1076#1077#1089#1100' '#1076#1083#1103' '#1076#1086#1073#1072#1074#1083#1077#1085#1080#1103' '#1085#1086#1074#1086#1081' '#1089#1090#1088#1086#1082#1080
      OptionsBehavior.CellHints = True
      OptionsBehavior.ImmediateEditor = False
      OptionsBehavior.IncSearch = True
      OptionsData.Deleting = False
      OptionsData.Editing = False
      OptionsData.Inserting = False
      OptionsSelection.CellSelect = False
      OptionsSelection.HideFocusRectOnExit = False
      OptionsSelection.InvertSelect = False
      OptionsSelection.UnselectFocusedRecordOnExit = False
      OptionsView.NavigatorOffset = 10
      OptionsView.NoDataToDisplayInfoText = '<'#1053#1077#1090' '#1076#1072#1085#1085#1099#1093'>'
      OptionsView.ColumnAutoWidth = True
      OptionsView.DataRowHeight = 24
      OptionsView.ExpandButtonsForEmptyDetails = False
      OptionsView.Footer = True
      OptionsView.GroupByBox = False
      OptionsView.Indicator = True
      Preview.Visible = True
      Styles.Content = DMInv.cxData
      Styles.IncSearch = DMInv.cxKrasniyText
      Styles.Selection = DMInv.cxJoltiyFon
      Styles.Header = DMInv.cxSiniyText
      object tvPodotchFIO: TcxGridDBColumn
        Caption = #1050#1086#1084#1091'/'#1050#1091#1076#1072
        DataBinding.FieldName = 'FIO'
        Visible = False
        GroupIndex = 0
        Width = 293
      end
      object tvPodotchRPDATE: TcxGridDBColumn
        Caption = #1044#1072#1090#1072
        DataBinding.FieldName = 'RPDATE'
        Visible = False
        GroupIndex = 1
        Width = 153
      end
      object tvPodotchRPSUMMA: TcxGridDBColumn
        Caption = #1057#1091#1084#1084#1072
        DataBinding.FieldName = 'RPSUMMA'
        Width = 76
      end
      object tvPodotchFIO2: TcxGridDBColumn
        Caption = #1054#1090' '#1082#1086#1075#1086
        DataBinding.FieldName = 'FIO2'
        Width = 446
      end
    end
    object dbgClientsLevel1: TcxGridLevel
      GridView = tvPodotch
    end
  end
  object ToolBar1: TToolBar [3]
    Left = 0
    Top = 45
    Width = 702
    Height = 29
    Caption = 'ToolBar1'
    Images = DMInv.ilActive
    TabOrder = 3
    object ToolButton1: TToolButton
      Left = 0
      Top = 2
      Hint = #1055#1077#1095#1072#1090#1100' '#1088#1072#1089#1087#1080#1089#1082#1080
      Caption = 'ToolButton1'
      ImageIndex = 11
      ParentShowHint = False
      ShowHint = True
      OnClick = ToolButton1Click
    end
  end
  inherited dlgDS: TDataSource
    DataSet = qPodotch
  end
  object qPodotch: TIBQuery
    Database = DMInv.DBRead
    Transaction = DMInv.IBTransaction1
    SQL.Strings = (
      '--'#1095#1077#1083#1086#1074#1077#1082#1080
      
        'SELECT RP.*, P.PLASTNAME||'#39' '#39'||SUBSTRING(P.PNAME FROM 1 FOR 1 )|' +
        '|'#39'. '#39'||'
      
        '        COALESCE(SUBSTRING(P.PPATRONYMIC FROM 1 FOR 1)||'#39'.'#39','#39' '#39')' +
        ' AS fio,'
      
        '        P1.PLASTNAME||'#39' '#39'||SUBSTRING(P1.PNAME FROM 1 FOR 1 )||'#39'.' +
        ' '#39'||'
      
        '        COALESCE(SUBSTRING(P1.PPATRONYMIC FROM 1 FOR 1)||'#39'.'#39','#39' '#39 +
        ') AS fio2'
      'FROM RASPRED_PODOTCH RP'
      
        'INNER JOIN PERSON_PODOTCH PP ON PP.PPID = RP.PPID AND PP.PPTYPE ' +
        '= 0'
      'INNER JOIN PEOPLE P ON P.PID = PP.PP_ID'
      'LEFT OUTER JOIN COMMON C ON C.CID = RP.CID'
      'LEFT OUTER JOIN COMMON_SERV CS ON CS.CSID = C.CSID'
      'LEFT OUTER JOIN PEOPLE P1 ON P1.PID = CS.CSUSERMONEY'
      'UNION'
      '--'#1085#1077#1095#1077#1083#1086#1074#1077#1082#1080
      'SELECT RP.*, '#39#1041#1072#1085#1082#39' AS fio,'
      'P1.PLASTNAME||'#39' '#39'||SUBSTRING(P1.PNAME FROM 1 FOR 1 )||'#39'. '#39'||'
      
        'COALESCE(SUBSTRING(P1.PPATRONYMIC FROM 1 FOR 1)||'#39'.'#39','#39' '#39') AS fio' +
        '2'
      'FROM RASPRED_PODOTCH RP'
      'LEFT OUTER JOIN COMMON C ON C.CID = RP.CID'
      'LEFT OUTER JOIN COMMON_SERV CS ON CS.CSID = C.CSID'
      'LEFT OUTER JOIN PEOPLE P1 ON P1.PID =CS.CSUSERMONEY'
      'WHERE RP.PPID = 1')
    Left = 304
    Top = 1
    object qPodotchRPID: TIntegerField
      FieldName = 'RPID'
      Origin = '"RASPRED_PODOTCH"."RPID"'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
    end
    object qPodotchCID: TIntegerField
      FieldName = 'CID'
      Origin = '"RASPRED_PODOTCH"."CID"'
      Required = True
    end
    object qPodotchRPDATE: TDateField
      FieldName = 'RPDATE'
      Origin = '"RASPRED_PODOTCH"."RPDATE"'
    end
    object qPodotchPPID: TIntegerField
      FieldName = 'PPID'
      Origin = '"RASPRED_PODOTCH"."PPID"'
    end
    object qPodotchRPSUMMA: TIBBCDField
      FieldName = 'RPSUMMA'
      Origin = '"RASPRED_PODOTCH"."RPSUMMA"'
      DisplayFormat = '#,###'
      Precision = 18
      Size = 2
    end
    object qPodotchRPUSERENTER: TIBStringField
      FieldName = 'RPUSERENTER'
      Origin = '"RASPRED_PODOTCH"."RPUSERENTER"'
      Size = 40
    end
    object qPodotchRPTIMEENTER: TDateTimeField
      FieldName = 'RPTIMEENTER'
      Origin = '"RASPRED_PODOTCH"."RPTIMEENTER"'
    end
    object qPodotchRPUSEREDIT: TIBStringField
      FieldName = 'RPUSEREDIT'
      Origin = '"RASPRED_PODOTCH"."RPUSEREDIT"'
      Size = 40
    end
    object qPodotchRPTIMEEDIT: TDateTimeField
      FieldName = 'RPTIMEEDIT'
      Origin = '"RASPRED_PODOTCH"."RPTIMEEDIT"'
    end
    object qPodotchFIO: TIBStringField
      FieldName = 'FIO'
      ProviderFlags = []
      Size = 769
    end
    object qPodotchFIO2: TIBStringField
      FieldName = 'FIO2'
      ProviderFlags = []
      Size = 769
    end
  end
  object RvSystem1: TRvSystem
    TitleSetup = 'Output Options'
    TitleStatus = #1057#1090#1072#1090#1091#1089
    TitlePreview = 'Report Preview'
    SystemSetups = [ssAllowCopies, ssAllowCollate, ssAllowDuplex, ssAllowDestPreview, ssAllowDestPrinter, ssAllowDestFile, ssAllowPrinterSetup, ssAllowPreviewSetup]
    SystemFiler.StatusFormat = #1060#1086#1088#1084#1080#1088#1091#1102' '#1089#1090#1088#1072#1085#1080#1094#1091' %p'
    SystemPreview.FormState = wsMaximized
    SystemPreview.ShadowDepth = 5
    SystemPreview.ZoomFactor = 100.000000000000000000
    SystemPreview.ZoomInc = 25
    SystemPrinter.ScaleX = 100.000000000000000000
    SystemPrinter.ScaleY = 100.000000000000000000
    SystemPrinter.StatusFormat = 'Printing page %p'
    SystemPrinter.Title = 'ReportPrinter Report'
    SystemPrinter.Units = unMM
    SystemPrinter.UnitsFactor = 25.400000000000000000
    Left = 352
    Top = 8
  end
  object RvProject1: TRvProject
    Engine = RvSystem1
    ProjectFile = 'Kassa_new.rav'
    Left = 384
    Top = 8
  end
  object rvdsPered_podotch: TRvDataSetConnection
    LocalFilter = False
    RuntimeVisibility = rtEndUser
    DataSet = qPodotch
    Left = 416
    Top = 8
  end
end
